home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / storage / fxforge / bubble < prev    next >
Encoding:
Text File  |  2004-08-03  |  1.4 KB  |  33 lines
  1. Category: Filter Factory Gallery B
  2. Title: Bubble...
  3. Copyright: Copyright © 1996 Visual Manipulation
  4. Author: Mario Klingemann
  5. Filename: ffb07gal.8bf
  6.  
  7. R:put(c2m(x-val(2,0,X),y-val(3,0,Y)),1),put(c2d(x-val(2,0,X),y-val(3,0,Y)),3),put(mix(ctl(5),ctl(4),get(1)-val(0,0,M),val(1,0,M)),0),put(src(val(2,0,X)+r2x(get(3),scl(get(0),ctl(4),ctl(5),0,val(6,0,M))),val(3,0,Y)+r2y(get(3),scl(get(0),ctl(4),ctl(5),0,val(7,0,M))),z),2),get(1)<=val(1,0,M)?scl(get(2),0,255,get(0)<128?0:2*get(0)-255,get(0)<128?2*get(0):255):c
  8.  
  9. G:put(src(val(2,0,X)+r2x(get(3),scl(get(0),ctl(4),ctl(5),0,val(6,0,M))),val(3,0,Y)+r2y(get(3),scl(get(0),ctl(4),ctl(5),0,val(7,0,M))),z),2),get(1)<=val(1,0,M)?scl(get(2),0,255,get(0)<128?0:2*get(0)-255,get(0)<128?2*get(0):255):c
  10.  
  11. B:put(src(val(2,0,X)+r2x(get(3),scl(get(0),ctl(4),ctl(5),0,val(6,0,M))),val(3,0,Y)+r2y(get(3),scl(get(0),ctl(4),ctl(5),0,val(7,0,M))),z),2),get(1)<=val(1,0,M)?scl(get(2),0,255,get(0)<128?0:2*get(0)-255,get(0)<128?2*get(0):255):c
  12.  
  13. A:put(src(val(2,0,X)+r2x(get(3),scl(get(0),ctl(4),ctl(5),0,val(6,0,M))),val(3,0,Y)+r2y(get(3),scl(get(0),ctl(4),ctl(5),0,val(7,0,M))),z),2),get(1)<=val(1,0,M)?get(2):c
  14.  
  15. ctl[0]: Inner Radius
  16. ctl[1]: Outer Radius
  17. ctl[2]: Center X
  18. ctl[3]: Center Y
  19. ctl[4]: Inner Shading
  20. ctl[5]: Outer Shading
  21. ctl[6]: X Distortion
  22. ctl[7]: Y Distortion
  23.  
  24. val[0]: 132
  25. val[1]: 135
  26. val[2]: 137
  27. val[3]: 130
  28. val[4]: 169
  29. val[5]: 255
  30. val[6]: 255
  31. val[7]: 251
  32.  
  33.